US COVID-19 Recoveries

db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")

US <- dbGetQuery(db, "SELECT * FROM JHUDATA 
                 WHERE country ='US'")
US$date <- as.Date(US$date)

US <- US%>% mutate(daily_deaths = deaths - lag(deaths))
US <- US%>% mutate(daily_cases = confirmed - lag(confirmed))
US <- US%>% mutate(daily_recovery = recovered - lag(recovered))

US Recoveries by Date (Daily and Accumliated)

plot1 <- US %>% ggplot() + geom_line(aes(x=date,y=recovered),lwd=1) + 
  labs(title="US Accumliated Recoveries to Date",
       capton="(Source: https://coronavirus.jhu.edu/map.html")  
   
  
ggplotly(plot1)

plot2 <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery),lwd=1) + 
  labs(title="US Daily Recoveries by Date",
       caption="(https://coronavirus.jhu.edu/map.html)")
ggplotly(plot2)

US Recoveries by Date (Daily and Accumliated)

US %>% ggplot() + geom_col(aes(x=date,y=recovered)) + 
  labs(title="US Accumliated Recoveries to Date",
       y="Log of  Recoveries",
       caption="(https://coronavirus.jhu.edu/map.html)") +
  scale_y_log10()

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 18 rows containing missing values (geom_col).

US %>% ggplot() + geom_col(aes(x=date,y=daily_recovery)) + 
  labs(title="US Daily Recoveries by Date",
       y="Log of  Recoveries",
       caption="(https://coronavirus.jhu.edu/map.html)") +
  scale_y_log10()

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 1 rows containing missing values (position_stack).

## Warning: Removed 49 rows containing missing values (geom_col).

Comparing Daily Cases to Recoveries

US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) + 
  labs(title="US Daily Cases and Recoveries by Date",
       caption="(Source: https://coronavirus.jhu.edu/map.html)",
       y="Daily Cases and Recoveries",subtitle="Apr. 25, 2020") + 
  geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
  easy_remove_x_axis()

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) + 
  labs(title="US Daily Cases and Recoveries by Date",
       caption="(Source: https://coronavirus.jhu.edu/map.html)",
       y="Daily Cases and Recoveries",subtitle="Apr. 25,2020") + 
  geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
  scale_y_log10()

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

aa <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) + 
    labs(title="US Daily Cases and Recoveries by Date" ,
       y="Daily Cases and Recoveries",subtitle="Apr. 25, 2020") + 
    geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
  easy_remove_x_axis()

ab <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) + 
  labs(title="US Daily Cases and Recoveries by Date",
       caption="(Source: https://coronavirus.jhu.edu/map.html)",
       y="Daily Cases and Recoveries") + 
  geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
  scale_y_log10()

aa /ab

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

Deaths Flatting the Curve

US %>% ggplot() + geom_line(aes(x=date,y=deaths),lwd=1) + 
  labs(title="US Accumliated Deaths to Date",
       y="Log of  Deaths",
       caption="(https://coronavirus.jhu.edu/map.html)") +
  scale_y_log10()

## Warning: Transformation introduced infinite values in continuous y-axis

US %>% ggplot() + geom_line(aes(x=date,y=daily_deaths),lwd=1) + 
  labs(title="US Daily Deaths by Date",
       y="Log of  Deaths",
       caption="(https://coronavirus.jhu.edu/map.html)") +
  scale_y_log10()

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Removed 1 row(s) containing missing values (geom_path).